home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / gsdb25.zip / DB_XPL16.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-30  |  2KB  |  63 lines
  1. program DB_Xpl16;
  2. {$V-}
  3. uses
  4.    CRT,
  5.    DOS,
  6.    GS_Date,
  7.    GS_Strng;
  8.  
  9. var
  10.    RealValue  : real;
  11.    LogicValue : boolean;
  12.    DateValue  : longint;
  13.    LogicString,
  14.    RealString,
  15.    Str1String,
  16.    Str2String,
  17.    UniqString,
  18.    DateString : string[20];
  19.    ZASCII     : array[0..20] of char;
  20.    i          : integer;
  21.  
  22. begin
  23.    ClrScr;
  24.    Str1String := '  Smith~John    ';
  25.    writeln('Original input -->':30,Str1String,'<--');
  26.    writeln('UpperCase -->':30,AllCaps(Str1String),'<--');
  27.    CnvStrToAsc(Str1String, ZASCII, sizeof(ZASCII));
  28.    write('ZASCII String -->':30);
  29.    i := 0;
  30.    while ZASCII[i] <> #0 do
  31.    begin
  32.       write(ZASCII[i]);
  33.       inc(i);
  34.    end;
  35.    writeln('<--');
  36.    CnvAscToStr(ZASCII, Str2String, i);
  37.    writeln('Pascal String from ZASCII -->':30,Str2String,'<--');
  38.    Str1String := TrimL(Str1String);
  39.    writeln('Trim Leading Spaces -->':30,Str1String,'<--');
  40.    Str1String := TrimR(Str1String);
  41.    writeln('Trim Trailing Spaces -->':30,Str1String,'<--');
  42.    writeln('Substring Chars 3-8 -->':30,SubStr(Str1String,3,6),'<--');
  43.    writeln('Flip String at ~ -->':30,Strip_Flip(Str1String),'<--');
  44.    writeln('Get Unique Field -->':30,Unique_Field,'<--');
  45.    DateString := '02/28/1991';
  46.    DateValue := ValDate(DateString);
  47.    writeln('Julian Date for 02/28/1991 -->':30,DateValue,'<--');
  48.    GS_Date_Century := false;
  49.    writeln('Date+90 Days (Century Off) -->':30,StrDate(DateValue+90),'<--');
  50.    GS_Date_Century := true;
  51.    writeln('Date+90 Days (Century On)  -->':30,StrDate(DateValue+90),'<--');
  52.    RealValue := 123.456;
  53.    writeln('Value 123.456 w/ $ edit -->':30,'$',StrNumber(RealValue,6,2),'<--');
  54.    RealString := StrNumber(RealValue + 78.9,9,4);
  55.    writeln('String of 123.456 + 78.9 -->':30,RealString,'<--');
  56.    writeln('Real of String/2   -->':30,ValNumber(RealString)/2,'<--');
  57.    writeln('Formatted String/2   -->':30,ValNumber(RealString)/2:7:4,'<--');
  58.    LogicValue := true;
  59.    LogicString :=  StrLogic(LogicValue);
  60.    writeln('Logic string for true -->':30,LogicString,'<--');
  61.    writeln('Logic boolean for true -->':30,ValLogic(LogicString),'<--');
  62. end.
  63.